home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.12 Dec 87 / scheme example / code--to-run
Encoding:
Text File  |  1987-09-18  |  731 b   |  24 lines  |  [TEXT/MACA]
  1. (begin-tasking)
  2.  
  3. (define (unequal1 x . lists)
  4.   (cond ((null? lists) #f)
  5.         ((equal? x (car lists))
  6.          (apply unequal1 (cons x (cdr lists))))
  7.         (else (car lists))))
  8.  
  9. (define (unequal2 x . objects)
  10.   (let* ((ans #f)
  11.          (task-count (length objects))
  12.          (tasks (map (lambda (y)
  13.                        (start-task
  14.                         (lambda ()
  15.                           (if (not (equal? x y))
  16.                               (begin (set! ans y)
  17.                                      (set! task-count 0)))
  18.                           (set! task-count (- task-count 1)))))
  19.                      objects)))
  20.     (while (> task-count 0)
  21.            (surrender-timeslice))
  22.     (for-each kill-task tasks)
  23.     ans))
  24.